home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / nxtchr.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  813 b   |  40 lines
  1.       integer function nxtchr(int)
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine advances the current line scan pointer one column
  5. c     and checks whether or not the next character is a delimiter
  6. c
  7. c spice version 2g.6  sccsid=line 3/15/83
  8.       common /line/ achar,afield(15),oldlin(15),kntrc,kntlim
  9. c
  10.       dimension adelim(5)
  11.       data adelim / 1h , 1h,, 1h=, 1h(, 1h) /
  12.       data ablnk / 1h  /
  13.       data ichar /0/
  14. c
  15. c  advance scan pointer (kntrc)
  16. c
  17.       kntrc=kntrc+1
  18.       if (kntrc.gt.kntlim) go to 30
  19.       call move(achar,1,afield,kntrc,1)
  20.     5 do 10 i=1,5
  21.       if (achar.eq.adelim(i)) go to 20
  22.    10 continue
  23. c
  24. c  non-delimiter
  25. c
  26.       nxtchr=1
  27.       return
  28. c
  29. c  delimiter
  30. c
  31.    20 nxtchr=0
  32.       return
  33. c
  34. c  end-of-line
  35. c
  36.    30 nxtchr=-1
  37.       achar=ablnk
  38.       return
  39.       end
  40.